home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / lib / blb / mousepat.blb < prev    next >
Text File  |  1995-02-17  |  1KB  |  18 lines
  1. 60400 '------------------- マウスカーソル形状設定 ver 1.60 一画面モード専用 --------------------------
  2. 60401 '入力 mousepat = マウスパターン番号
  3. 60402 '                (0=通常 1=時計 2=鉛筆 3=手 4=毛抜き 5=スポイト 6=指 7=筆 8=カッター)
  4. 60403 '                ( 負数はアイコン番号(絶対値)。絵柄については TOWNS GEARﾃﾞｨｸｼｮﾅﾘ参照)
  5. 60404 '                (         ただし､負数を指定したときは読み取り位置の補正は行われない)
  6. 60405 *BLB_MOUSEPAT
  7. 60406  IF BLB_MOUSEPAT%=0 THEN DIM BLB_MA&(31),BLB_MD&(31):MOUSE 0:MOUSE 1,320,240,0:BLB_MOUSEPAT%=1
  8. 60407  MOUSE 3,0,INP(&H3B06):MOUSE 3,1,INP(&H3B06)
  9. 60408  IF MOUSEPAT<0 THEN *BLB_MOUSEPAT2
  10. 60409  FOR I%=0 TO 31:BLB_MA&(I%)=PEEK([264]&H2D080+I%*4+MOUSEPAT*256,4)
  11. 60410  BLB_MD&(I%)=BLB_MA&(I%) OR PEEK([264]&H2D000+MOUSEPAT*256+I%*4,4) XOR -1
  12. 60411  NEXT:MOUSE 1,,,1
  13. 60412  MOUSE 6,0,BLB_MA&,BLB_MD&,ASC(MID$("1?1:21111",MOUSEPAT+1))-48,ASC(MID$("1?1:L111N",MOUSEPAT+1))-48:RETURN
  14. 60413 *BLB_MOUSEPAT2
  15. 60414  FOR I%=0 TO 31:BLB_MA&(I%)=PEEK([264]&H27F80+I%*4-MOUSEPAT*256,4)
  16. 60415  BLB_MD&(I%)=(BLB_MA&(I%)XOR-1)AND(PEEK([264]&H27F00-MOUSEPAT*256+I%*4,4)XOR-1)
  17. 60416  NEXT:MOUSE 1,,,1:MOUSE 6,0,BLB_MA&,BLB_MD&,15,15:RETURN
  18.